﻿Imports System

Namespace System.Workflow.Runtime.Tracking
    Public NotInheritable Class WorkflowTrackPoint
        ' Methods
        Friend Function IsMatch(ByVal status As TrackingWorkflowEvent) As Boolean
            Return Me._location.Match(status)
        End Function


        ' Properties
        Public ReadOnly Property Annotations As TrackingAnnotationCollection
            Get
                Return Me._annotations
            End Get
        End Property

        Public Property MatchingLocation As WorkflowTrackingLocation
            Get
                Return Me._location
            End Get
            Set(ByVal value As WorkflowTrackingLocation)
                Me._location = value
            End Set
        End Property


        ' Fields
        Private _annotations As TrackingAnnotationCollection = New TrackingAnnotationCollection
        Private _location As WorkflowTrackingLocation = New WorkflowTrackingLocation
    End Class
End Namespace

